home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 April / Ahoy_Magazine_85-04_1985_Double_L.d64 / hop around 20 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  80 lines
  1. 2 goto80
  2. 3 e=+1:pokea,32:pokea+22,32::a=a+e:ifpeek(a+44)=32then7
  3. 4 goto37
  4. 5 e=-1:pokea,32:pokea+22,32:a=a+e:ifpeek(a+44)=32then7
  5. 6 goto37
  6. 7 l=.:t=241:pokev-2,.
  7. 8 pokea,32:pokea+22,32:l=l+1:a=a+22:ifpeek(a+44)=4then12
  8. 9 ifa=bthen64
  9. 10 pokea,.:pokea+22,1:pokeu,t:t=t-3:goto8
  10. 12 ifl>=9then55
  11. 13 pokeu,.:goto37
  12. 14 y=135:bj=bj+1
  13. 15 pokev-2,y:y=y+5:pokea,32:pokea+22,32:ifpeek(a-22)=4thena=a+1:goto7
  14. 17 ifa<7702thena=a+1:goto7
  15. 18 ifa-22=norpeek(a-22)=5then55
  16. 19 a=a-22:pokea,.:pokea+22,1:goto15
  17. 20 poke36869,255:print"[147]hop[146] around":print"by[157][157]kevin[157][157][157][157][157]dewey"
  18. 21 print"keys-left=[156] :[157][157][157][157][157][157][157]right=[156] ;[157][157][157][157][157][157][157][157]jump=[156] j"
  19. 22 print"object:":print"@[157]a[145] must save[146] f[157]g[145] from[146] b[157]c,"
  20. 23 print"while dodging[146] b[157]c[145] and[146] e!"
  21. 24 print"[144]hit a key to start..."
  22. 25 geta$:ifa$=""then25
  23. 26 goto89
  24. 27 gu=1:pokeb-22,2:goto55
  25. 30 a=8109:b=7703:v=36878:pokev,15:pokev+1,24:u=36876:c=7744
  26. 32 print"dddddddddddddddddddddd";
  27. 34 pokeb,2:pokeb+22,3:d=peek(197):ifd=45then5
  28. 35 pokec-22,6:pokec,mz:ifd=22then3
  29. 36 ifd=20then14
  30. 37 pokea,.:pokea+22,1:ifpeek(a+44)=32then7
  31. 38 m=int(rnd(1)*9)+1:ifm=9andp=.then42
  32. 39 ifa=bthen27
  33. 40 ifp=1thenreturn
  34. 41 goto34
  35. 42 fort=241to200step-1:pokeu,t:pokeu-1,t:next:pokeu,.:n=int(rnd(1)*19)+7746:p=1:t=241
  36. 43 foro=nton+462step22:poken,5:pokeu,t:gosub34:poken,32:n=n+22:ifn=aorn=a+22then55
  37. 44 ifpeek(n)=4thenpokev-1,135:fort=1to10:next:pokev-1,.:n=n+1
  38. 45 next:pokeu,.
  39. 46 p=0:poken,32:n=.:pokeb,32:pokeb+22,32:b=b+1:ifpeek(b)=6then49
  40. 47 ifmz=8thenmz=7:goto34
  41. 48 ifmz=7thenmz=8:goto34
  42. 49 pokev-2,.:tr=240
  43. 50 fort=7744to8186step22:poket,7:poket-22,6:poket-1,3:poket-23,2:pokev-1,tr:tr=tr-5
  44. 51 fortt=1to20:next:poket,32:poket-22,32:poket-1,32:poket-23,32:next
  45. 52 pokev-1,.:fortt=1to300:next
  46. 55 rr=2:pokeu,.:pokea,32:pokea+22,9:pokea+23,10:pokeu+1,200:ifgu=1thenpokeb,3:gu=.
  47. 56 fort=1to450:next:pokeu+1,.:fort=1to500:next
  48. 57 pokev,.
  49. 58 print"[147]you bombed out.":poke36869,240
  50. 59 print"hit a key to try again":print"(do it right          this time!)"
  51. 61 ifpeek(197)<>64andpeek(197)<>39thenrun90
  52. 62 gosub96
  53. 63 goto61
  54. 64 pokeb-1,.:pokeb+21,1
  55. 65 y=135:fort=bto8184step+23:poket,2:poket+22,3:pokev-2,y:y=y+5:fortt=1to15:next
  56. 67 poket,32:poket+22,32:next:pokev-2,0:fort=1to500:pokev-1,135:next:pokev-1,.
  57. 69 pokev,.:rr=1:poke36869,240:print"[147]you did it!"
  58. 70 print"you saved sweet doris.":print"with only";bj;" jumps!"
  59. 71 print"do you wish to play   again,hero?"
  60. 72 print"if so,hit any key."
  61. 73 ifpeek(197)<>64andpeek(197)<>39thenrun90
  62. 74 gosub96
  63. 75 goto73
  64. 80 poke52,28:poke56,28:clr:fori=7168to7679:pokei,peek(i+25600):next:fora=7168to7257
  65. 81 readb:pokea,b:next
  66. 83 data60,126,219,255,231,126,66,60,24,255,189,189,60,36,36,102,126,90,126,255,129,195
  67. 84 data102,60,24,153,189,255,126,255,36,102,254,170,254,0,0,0,0,0,28,28,28,28,8,62,28,8
  68. 85 data60,126,106,247,189,164,60,24,189,254,120,60,124,71,33,96,222,127,30,60,62,226,132
  69. 86 data6,56,126,221,245,245,221,126,56,112,65,127,248,248,127,65,112,0,0
  70. 87 goto20
  71. 89 gt=0:poke646,gt
  72. 90 print"[147]";:poke36869,255:fort=1to490:print" ";:next
  73. 91 print"dddddddddddddddddddddddddddddddddddddddddddd";
  74. 92 print"dddddddddddddddddddddddddddddddddddddddddddd";
  75. 93 mz=7:goto30
  76. 96 ifpeek(197)=39thengt=gt+1:poke646,gt:ifrr=2then58
  77. 97 ifpeek(197)=39andrr=1then69
  78. 98 ifgt>6thengt=0
  79. 99 poke646,gt:return
  80.